home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 84 / Tiger_Disk_084_20xx_Tiger-Crew-Disk_de_Side_D.d64 / 02.MNMN BtB MNMN (.txt) next >
Commodore BASIC  |  2023-02-26  |  7KB  |  305 lines
  1. 0 forx=39to0step-1:print"":poke53280,6:poke53281,6
  2. 1 printtab(x)"[145][145] [157] [157] [157] [157] [157][160][157][160][157] [157] [157] [157][160][157][160]
  3. 2 [130]x
  4. 3 [129]x[178]0[164]39
  5. 4 [153][163]x)" cmd cmd cmd cmd cmdclosecmdclosecmd cmd cmd cmd cmdclosecmdcloseononononononononononononon
  6. 5 nextx
  7. 8 x=10
  8. 9 print""
  9. 10 print"[147][155]"
  10. 11 x=10
  11. 12 print""
  12. 13 printtab(x)"
  13. 14 [153][163]x)"orlenlen
  14. 15 printtab(x)"[173][195][174]
  15. 16 [153][163]x)"  peek
  16. 17 printtab(x)"  [194]
  17. 18 [153][163]x)"  peek
  18. 19 printtab(x)"  [173]
  19. 20 [153]"onononononononon"
  20. 21 [153][163]x)"cont
  21. 22 printtab(x)"[176][195][195]
  22. 23 [153][163]x)"/len^
  23. 24 printtab(x)"  [194]
  24. 25 [153][163]x)"  peek
  25. 26 printtab(x)"  [194]
  26. 27 [153][163]x)"  /
  27. 29 print"[145][145][145][145][145][145][145][145]"
  28. 30 printtab(x)"[159]
  29. 31 [153][163]x)"orlenlen
  30. 32 printtab(x)"[173][195][174]
  31. 33 [153][163]x)"  peek
  32. 34 printtab(x)"  [194]
  33. 35 [153][163]x)"  peek
  34. 36 printtab(x)"  [173]
  35. 39 [153]"onononononononon"
  36. 40 [153][163]x)"print  
  37. 41 printtab(x)"[153][176][195][195][195][195]
  38. 42 [153][163]x)"print/len^ or
  39. 43 printtab(x)"[153]  [194] [194]
  40. 44 [153][163]x)"print  peek peek
  41. 45 printtab(x)"[153]  [194] [194]
  42. 46 [153][163]x)"print  /lenexp
  43. 49 print"[145][145][145][145][145][145][145][145]"
  44. 50 printtab(x)"  [154]
  45. 51 [153][163]x)"orlencontlenlenlen
  46. 52 printtab(x)"[173][195][154][174] [176]
  47. 53 [153][163]x)"  contpeek peek
  48. 54 printtab(x)"  [154][194] [194]
  49. 55 [153][163]x)"  contpeek peek
  50. 56 printtab(x)"  [154][173][195][189]
  51. 59 [153]"onononononononon"
  52. 60 [153][163]x)"print  open
  53. 61 printtab(x)"[153][176][195][159][195][195][195]
  54. 62 [153][163]x)"print/lenopen^ or
  55. 63 printtab(x)"[153]  [159][194] [194]
  56. 64 [153][163]x)"print  openpeek peek
  57. 65 printtab(x)"[153]  [159][194] [194]
  58. 66 [153][163]x)"print  open/lenexp
  59. 69 print"[145][145][145][145][145][145][145][145]"
  60. 70 printtab(x)"[159]  [153]  
  61. 71 [153][163]x)"openorlenprintlenlenlenlen^
  62. 72 printtab(x)"[159][173][195][153][174] [176][195][189]
  63. 73 [153][163]x)"open  printpeek peek
  64. 74 printtab(x)"[159]  [153][194] [194]
  65. 75 [153][163]x)"open  printpeek peek
  66. 76 printtab(x)"[159]  [153][173][195][189]
  67. 79 [153]"onononononononon"
  68. 80 [153][163]x)"cont    cont
  69. 81 printtab(x)"[154][176][195][195][195][154][195][195][174]
  70. 82 [153][163]x)"cont/len^ contorlenexp
  71. 83 printtab(x)"[154]  [194] [154][194]
  72. 84 [153][163]x)"cont  peek contpeek
  73. 85 printtab(x)"[154]  [194] [154][194]
  74. 86 [153][163]x)"cont  /lencontexp
  75. 89 print"[145][145][145][145][145][145][145][145]"
  76. 90 printtab(x)"[154]  [153]  [159]
  77. 91 [153][163]x)"contorlenprintlenlenopenlenlen^
  78. 92 printtab(x)"[154][173][195][153][174] [159][176][195][189]
  79. 93 [153][163]x)"cont  printpeek openpeek
  80. 94 printtab(x)"[154]  [153][194] [159][194]
  81. 95 [153][163]x)"cont  printpeek openpeek
  82. 96 printtab(x)"[154]  [153][173][195][159][189]
  83. 99 [153]"onononononononon"
  84. 100 [153][163]x)"cont  open  print  
  85. 101 printtab(x)"[154][176][195][159][195][195][153][195][195][174][176][195][174]
  86. 102 [153][163]x)"cont/lenopen^ printorlenexppeek peek
  87. 103 printtab(x)"[154]  [159][194] [153][194]  [194] [194]
  88. 104 [153][163]x)"cont  openpeek printpeek  peek peek
  89. 105 printtab(x)"[154]  [159][194] [153][194]  [194] [194]
  90. 106 [153][163]x)"cont  open/lenprintexp  /lenexp
  91. 109 print"[145][145][145][145][145][145][145][145]"
  92. 110 printtab(x)"[154]      [154]
  93. 111 [153][163]x)"contorlenlenlenlenlencont^orlen^
  94. 112 printtab(x)"[154][173][195][174] [176][195][154][189][194] [194]
  95. 113 [153][163]x)"cont  peek peek cont peek peek
  96. 114 printtab(x)"[154]  [194] [194] [154] [194] [194]
  97. 115 [153][163]x)"cont  peek peek cont peek peek
  98. 116 printtab(x)"[154]  [173][195][189] [154] [173][195][189]
  99. 119 [153]"onononononononon"
  100. 120 [153][163]x)"cont    print  open
  101. 121 printtab(x)"[154][176][195][195][195][153][195][195][159][174][176][195][174]
  102. 122 [153][163]x)"cont/len^ printorlenopenexppeek peek
  103. 123 printtab(x)"[154]  [194] [153][194] [159] [194] [194]
  104. 124 [153][163]x)"cont  peek printpeek open peek peek
  105. 125 printtab(x)"[154]  [194] [153][194] [159] [194] [194]
  106. 126 [153][163]x)"cont  /lenprintexp open /lenexp
  107. 129 print"[145][145][145][145][145][145][145][145]"
  108. 130 printtab(x)"[154]      [153] 
  109. 131 [153][163]x)"contorlenlenlenlenlenprint^orlen^
  110. 132 printtab(x)"[154][173][195][174] [176][195][153][189][194] [194]
  111. 133 [153][163]x)"cont  peek peek print peek peek
  112. 134 printtab(x)"[154]  [194] [194] [153] [194] [194]
  113. 135 [153][163]x)"cont  peek peek print peek peek
  114. 136 printtab(x)"[154]  [173][195][189] [153] [173][195][189]
  115. 139 [153]"onononononononon"
  116. 140 [153][163]x)"cont       cont
  117. 141 printtab(x)"[154][176][195][195][195][195][195][174][154][176][195][174]
  118. 142 [153][163]x)"cont/len^ orlenexpcontpeek peek
  119. 143 printtab(x)"[154]  [194] [194]  [154][194] [194]
  120. 144 [153][163]x)"cont  peek peek  contpeek peek
  121. 145 printtab(x)"[154]  [194] [194]  [154][194] [194]
  122. 146 [153][163]x)"cont  /lenexp  cont/lenexp
  123. 149 print"[145][145][145][145][145][145][145][145]"
  124. 150 printtab(x)"[154]      [153] [159]
  125. 151 [153][163]x)"contorlenlenlenlenlenprint^openorlen^
  126. 152 printtab(x)"[154][173][195][174] [176][195][153][189][159][194] [194]
  127. 153 [153][163]x)"cont  peek peek print openpeek peek
  128. 154 printtab(x)"[154]  [194] [194] [153] [159][194] [194]
  129. 155 [153][163]x)"cont  peek peek print openpeek peek
  130. 156 printtab(x)"[154]  [173][195][189] [153] [159][173][195][189]
  131. 159 [153]"onononononononon"
  132. 160 [153][163]x)"cont      open print  
  133. 161 printtab(x)"[154][176][195][195][195][195][195][159][174][153][176][195][174][176][195][195][195]
  134. 162 [153][163]x)"cont/len^ orlenopenexpprintpeek peekpeek orright$
  135. 163 printtab(x)"[154]  [194] [194] [159] [153][194] [194][194] [194][194]
  136. 164 [153][163]x)"cont  peek peek open printpeek peekpeek peekpeek
  137. 165 printtab(x)"[154]  [194] [194] [159] [153][194] [194][194] [173][189]
  138. 166 [153][163]x)"cont  /lenexp open print/lenexp/lenlenlen
  139. 169 print"[145][145][145][145][145][145][145][145]"
  140. 170 printtab(x)"[154]         [154]
  141. 171 [153][163]x)"contorlenlenlenlenlen^orlencont^orlenlenlen
  142. 172 printtab(x)"[154][173][195][174] [176][195][189][194] [154][194][194] [176][201]
  143. 173 [153][163]x)"cont  peek peek  peek contpeekpeek peekpeek
  144. 174 printtab(x)"[154]  [194] [194]  [194] [154][194][194] [194][194]
  145. 175 [153][163]x)"cont  peek peek  peek contpeekpeek /exp
  146. 176 printtab(x)"[154]  [173][195][189]  [173][195][154][189][173][195][195][195]
  147. 179 [153]"onononononononon"
  148. 180 [153][163]x)"cont       print  open
  149. 181 printtab(x)"[154][176][195][195][195][195][195][174][153][176][195][159][174][176][195][195][195]
  150. 182 [153][163]x)"cont/len^ orlenexpprintpeek openpeekpeek orright$
  151. 183 printtab(x)"[154]  [194] [194]  [153][194] [159][194][194] [194][194]
  152. 184 [153][163]x)"cont  peek peek  printpeek openpeekpeek peekpeekclose
  153. 185 printtab(x)"[154]  [194] [194]  [153][194] [159][194][194] [173][189]
  154. 186 [153][163]x)"cont  /lenexp  print/lenopenexp/lenlenlen
  155. 189 print"[145][145][145][145][145][145][145][145]"
  156. 190 printtab(x)"[154]       [159]  [153]  
  157. 191 [153][163]x)"contorlenlenlenlenlen^openorlenprint^orlenlenlenright$
  158. 192 printtab(x)"[154][173][195][174] [176][195][189][159][194] [153][194][194] [176][201][194]
  159. 193 [153][163]x)"cont  peek peek  openpeek printpeekpeek peekpeekpeek
  160. 194 printtab(x)"[154]  [194] [194]  [159][194] [153][194][194] [194][194][194]
  161. 195 [153][163]x)"cont  peek peek  openpeek printpeekpeek /exppeek
  162. 196 printtab(x)"[154]  [173][195][189]  [159][173][195][153][189][173][195][195][195][189]
  163. 199 [153]"onononononononon"
  164. 200 [153][163]x)"cont           cont
  165. 201 printtab(x)"[154][176][195][195][195][195][195][174][176][195][174][176][154][195][195][195][201][176][195]
  166. 202 [153][163]x)"cont/len^ orlenexppeek peekpeekcont orright$peekpeek
  167. 203 printtab(x)"[154]  [194] [194]  [194] [194][194][154] [194][194][194][194]
  168. 204 [153][163]x)"cont  peek peek  peek peekpeekcont peekpeekpeekpeek
  169. 205 printtab(x)"[154]  [194] [194]  [194] [194][194][154] [173][189][194][194]
  170. 206 [153][163]x)"cont  /lenexp  /lenexp/contlenlenlenexp/len
  171. 209 print"[145][145][145][145][145][145][145][145]"
  172. 210 printtab(x)"[154]         [153]  [159] [144]
  173. 211 [153][163]x)"contorlenlenlenlenlen^orlenprint^oropenlenstoplenlenright$orlen
  174. 212 printtab(x)"[154][173][195][174] [176][195][189][194] [153][194][194][159] [144][176][201][194][194]
  175. 213 [153][163]x)"cont  peek peek  peek printpeekpeekopen stoppeekpeekpeekpeek
  176. 214 printtab(x)"[154]  [194] [194]  [194] [153][194][194][159] [144][194][194][194][194]
  177. 215 [153][163]x)"cont  peek peek  peek printpeekpeekopen stop/exppeekpeek
  178. 216 printtab(x)"[154]  [173][195][189]  [173][195][153][189][173][159][195][144][195][195][189][173][195]
  179. 219 [153]"onononononononon"
  180. 220 [153][163]x)"cont         open  print 
  181. 221 printtab(x)"[154][176][195][195][195][195][195][174][176][195][159][174][176][153][195][195][195][201][176][195][195][195][174]
  182. 222 [153][163]x)"cont/len^ orlenexppeek openpeekpeekprint orright$peekpeek orlenexp
  183. 223 printtab(x)"[154]  [194] [194]  [194] [159][194][194][153] [194][194][194][194] [173][174]
  184. 224 [153][163]x)"cont  peek peek  peek openpeekpeekprint peekpeekpeekpeek orexp
  185. 225 printtab(x)"[154]  [194] [194]  [194] [159][194][194][153] [173][189][194][194] [173][195][174]
  186. 226 [153][163]x)"cont  /lenexp  /lenopenexp/printlenlenlenexp/lenlenlenexp
  187. 229 print"[145][145][145][145][145][145][145][145]"
  188. 230 printtab(x)"[154]            [154]
  189. 231 [153][163]x)"contorlenlenlenlenlen^orlen^orlencontlenlenright$orlenlenlen^
  190. 232 printtab(x)"[154][173][195][174] [176][195][189][194] [194][194] [154][176][201][194][194] [176][195][189]
  191. 233 [153][163]x)"cont  peek peek  peek peekpeek contpeekpeekpeekpeek /^
  192. 234 printtab(x)"[154]  [194] [194]  [194] [194][194] [154][194][194][194][194] [176][189]
  193. 235 [153][163]x)"cont  peek peek  peek peekpeek cont/exppeekpeek /len^
  194. 236 printtab(x)"[154]  [173][195][189]  [173][195][189][173][195][154][195][195][189][173][195][195][195][189]
  195. 239 [153]"onononononononon"
  196. 240 [153][163]x)"cont           print open
  197. 241 printtab(x)"[154][176][195][195][195][195][195][174][176][195][174][176][153][195][159][195][195][201][176][195][195][195][174]
  198. 242 [153][163]x)"cont/len^ orlenexppeek peekpeekprint openorright$peekpeek orlenexp
  199. 243 printtab(x)"[154]  [194] [194]  [194] [194][194][153] [159][194][194][194][194] [173][174]
  200. 244 [153][163]x)"cont  peek peek  peek peekpeekprint openpeekpeekpeekpeek orexp
  201. 245 printtab(x)"[154]  [194] [194]  [194] [194][194][153] [159][173][189][194][194] [173][195][174]
  202. 246 [153][163]x)"cont  /lenexp  /lenexp/printlenopenlenlenexp/lenlenlenexp
  203. 249 print"[145][145][145][145][145][145][145][145]"
  204. 250 printtab(x)"[154]           [159] [153]
  205. 251 [153][163]x)"contorlenlenlenlenlen^orlen^oropenlenprintlenlenright$orlenlenlen^
  206. 252 printtab(x)"[154][173][195][174] [176][195][189][194] [194][194][159] [153][176][201][194][194] [176][195][189]
  207. 253 [153][163]x)"cont  peek peek  peek peekpeekopen printpeekpeekpeekpeek /^
  208. 254 printtab(x)"[154]  [194] [194]  [194] [194][194][159] [153][194][194][194][194] [176][189]
  209. 255 [153][163]x)"cont  peek peek  peek peekpeekopen print/exppeekpeek /len^
  210. 256 printtab(x)"[154]  [173][195][189]  [173][195][189][173][159][195][153][195][195][189][173][195][195][195][189]
  211. 259 [153]"onononononononon"
  212. 260 [153][163]x)"cont            
  213. 261 printtab(x)"[154][176][195][195][195][195][195][174][176][195][174][176][195][195][195][201][176][195][195][195][174]
  214. 262 [153][163]x)"cont/len^ orlenexppeek peekpeek orright$peekpeek orlenexp
  215. 263 printtab(x)"[154]  [194] [194]  [194] [194][194] [194][194][194][194] [173][174]
  216. 264 [153][163]x)"cont  peek peek  peek peekpeek peekpeekpeekpeek orexp
  217. 265 printtab(x)"[154]  [194] [194]  [194] [194][194] [173][189][194][194] [173][195][174]
  218. 266 [153][163]x)"cont  /lenexp  /lenexp/lenlenlenexp/lenlenlenexp
  219. 269 print"[145][145][145][145][145][145][145][145]"
  220. 270 printtab(x)"[154]            [153]
  221. 271 [153][163]x)"contorlenlenlenlenlen^orlen^orlenprintlenlenright$orlenlenlen^
  222. 272 printtab(x)"[154][173][195][174] [176][195][189][194] [194][194] [153][176][201][194][194] [176][195][189]
  223. 273 [153][163]x)"cont  peek peek  peek peekpeek printpeekpeekpeekpeek /^
  224. 274 printtab(x)"[154]  [194] [194]  [194] [194][194] [153][194][194][194][194] [176][189]
  225. 275 [153][163]x)"cont  peek peek  peek peekpeek print/exppeekpeek /len^
  226. 276 printtab(x)"[154]  [173][195][189]  [173][195][189][173][195][153][195][195][189][173][195][195][195][189]
  227. 279 [153]"onononononononon"
  228. 280 [153][163]x)"cont            open
  229. 281 printtab(x)"[154][176][195][195][195][195][195][174][176][195][174][176][195][159][195][195][201][176][195][195][195][174]
  230. 282 [153][163]x)"cont/len^ orlenexppeek peekpeek openorright$peekpeek orlenexp
  231. 283 printtab(x)"[154]  [194] [194]  [194] [194][194] [159][194][194][194][194] [173][174]
  232. 284 [153][163]x)"cont  peek peek  peek peekpeek openpeekpeekpeekpeek orexp
  233. 285 printtab(x)"[154]  [194] [194]  [194] [194][194] [159][173][189][194][194] [173][195][174]
  234. 286 [153][163]x)"cont  /lenexp  /lenexp/lenopenlenlenexp/lenlenlenexp
  235. 287 print"[145][145][145][145][145][145][145][145]"
  236. 288 printtab(x)"[154]               [159]
  237. 289 [153][163]x)"contorlenlenlenlenlen^orlen^orlenlenlenright$openorlenlenlen^
  238. 290 printtab(x)"[154][173][195][174] [176][195][189][194] [194][194] [176][201][194][159][194] [176][195][189]
  239. 291 [153][163]x)"cont  peek peek  peek peekpeek peekpeekpeekopenpeek /^
  240. 292 printtab(x)"[154]  [194] [194]  [194] [194][194] [194][194][194][159][194] [176][189]
  241. 293 [153][163]x)"cont  peek peek  peek peekpeek /exppeekopenpeek /len^
  242. 294 printtab(x)"[154]  [173][195][189]  [173][195][189][173][195][195][195][189][159][173][195][195][195][189]
  243. 295 [153]"onononononononon"
  244. 296 [153][163]x)"cont
  245. 297 printtab(x)"[154][176][195][195][195][195][195][174][176][195][174][176][195][195][195][201][176][195][195][195][174]
  246. 298 [153][163]x)"cont/len^ orlenexppeek peekpeek orright$peekpeek orlenexp
  247. 299 printtab(x)"[154]  [194] [194]  [194] [194][194] [194][194][194][194] [173][174]
  248. 300 [153][163]x)"cont  peek peek  peek peekpeek peekpeekpeekpeek orexp
  249. 301 printtab(x)"[154]  [194] [194]  [194] [194][194] [173][189][194][194] [173][195][174]
  250. 302 [153][163]x)"cont  /lenexp  /lenexp/lenlenlenexp/lenlenlenexp
  251. 320 fort=1to500:nextt
  252. 330 fora=0to7:poke53270,a:nexta
  253. 331 fora=7to0step-1:poke53270,a:nexta
  254. 332 fora=0to7:poke53270,a:nexta
  255. 333 fora=7to0step-1:poke53270,a:nexta
  256. 334 fora=0to7:poke53270,a:nexta
  257. 335 fora=7to0step-1:poke53270,a:nexta
  258. 336 fora=0to7:poke53270,a:nexta
  259. 337 fora=7to0step-1:poke53270,a:nexta
  260. 338 fora=0to7:poke53270,a:nexta
  261. 339 fora=7to0step-1:poke53270,a:nexta
  262. 340 fora=0to7:poke53270,a:nexta
  263. 341 fora=7to0step-1:poke53270,a:nexta
  264. 342 fora=0to7:poke53270,a:nexta
  265. 343 fora=7to0step-1:poke53270,a:nexta
  266. 344 fora=0to7:poke53270,a:nexta
  267. 345 fora=7to0step-1:poke53270,a:nexta
  268. 346 fora=0to7:poke53270,a:nexta
  269. 347 fora=7to0step-1:poke53270,a:nexta
  270. 348 fora=0to7:poke53270,a:nexta
  271. 349 fora=7to0step-1:poke53270,a:nexta
  272. 350 fora=0to7:poke53270,a:nexta
  273. 351 fora=7to0step-1:poke53270,a:nexta
  274. 352 fora=0to7:poke53270,a:nexta
  275. 353 fora=7to0step-1:poke53270,a:nexta
  276. 354 fora=0to7:poke53270,a:nexta
  277. 355 fora=7to0step-1:poke53270,a:nexta
  278. 356 fora=0to7:poke53270,a:nexta
  279. 357 fora=7to0step-1:poke53270,a:nexta
  280. 358 fora=0to7:poke53270,a:nexta
  281. 359 fora=7to0step-1:poke53270,a:nexta
  282. 360 fora=0to7:poke53270,a:nexta
  283. 361 fora=7to0step-1:poke53270,a:nexta
  284. 365 fort=1to1000:nextt
  285. 368 forx=39to0step-1:print""
  286. 369 printtab(x)"[145][145] [157] [157] [157] [157] [157][160][157][160][157] [157] [157] [157][160][157][160]
  287. 370 [130]x
  288. 371 [129]x[178]0[164]39
  289. 372 [153][163]x)" cmd cmd cmd cmd cmdclosecmdclosecmd cmd cmd cmd cmdclosecmdcloseononononononononononononon
  290. 375 nextx
  291. 376 x=10
  292. 377 print""
  293. 378 print"[147][155]"
  294. 379 print"              code.......tomz
  295. 380 [153]"              gfx.........c64"
  296. 390 [129]t[178]1[164]400:[130]t
  297. 399 [129]x[178]39[164]0[169][171]1:[153]""
  298. 400 [153][163]x)"onon cmd cmd cmd cmd cmdclosecmdclosecmd cmd cmd cmdclosecmdclose
  299. 401 nextx
  300. 402 forx=0to39
  301. 403 printtab(x)" [157] [157] [157] [157] [157][160][157][160][157] [157] [157] [157] [157][160][157][160][145][145][145][145][145][145][145][145][145][145][145][145][145]
  302. 404 [130]x
  303. 405 x[178]10
  304. 410 [147]"03.*",8,1:[138]
  305.